﻿
Imports std

Public Class unittest4
    Private Const testsize As Int64 = 102400
    Private Shared ReadOnly kb As keybytesless(Of Int64) = Nothing
    Private Shared ReadOnly fces As fceslite4(Of _true) = Nothing

    Shared Sub New()
        kb = New keybytesless(Of Int64)()
        fces = New fceslite4(Of _true)()
    End Sub

    Private Shared Function random_existing_key() As Int64

    End Function

    Private Shared Function sizeof(ByVal sz As pointer(Of Int64)) As eventComb
    End Function

    Private Shared Sub run()
        Dim testsize As Int64 = 0
        testsize = unittest4.testsize
        assert_begin(New eventComb(Function() As Boolean
                                       If testsize > 0 Then
                                           testsize -= 1

                                       Else
                                           Return goto_end()
                                       End If
                                   End Function))
    End Sub

    Public Shared Sub go()
        For i As Int64 = 0 To 3

        Next
    End Sub
End Class
